%"?s System versionID Arial DriveListViewer Page id 2 tools Page id 4 Tools Reader Open &Tools Window closeWindow Window ~= Reader "Open &Tools NautilusCD MPT System Book v. 3.11 Contents 1993-1995 Metatec Corp. All Rights Reservedeserved &Compact Book compactBook buttonClick onClick compactBook &File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 search Re&place... replace A&uthor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript super/subscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar Small Fonts `V;N;N; initMPT szAppName,szShortName,szVersionID,szConfigFile,szDiscConfigFile, \ szIndexApp,szIndexCaption xinitSysArray( -- Trap WM_SYSCOMMAND SC_CLOSE so that -- shutDown can be called perform cleanup translateWindowMessage windowHandle on 0x0005 WM_SIZE on 0x0112 szSysInfo[] gwAppName,wShortName,wVersionID,wConfigFile,wDiscConfigFile gwRomDrive,wStartupDir,wExtension,wIndexApp,wIndexCaption y = 1 z = 2 x = 3 v = 4 s = 5 E = 6 D = 7 w = 8 v = 9 s = 10 ] = ] = ] = ] = iniString( ],"STARTUP","startupDir","",256) writeIniItem( >ir",myPath()) dir now known ( )least guessed )) so we -- ahead attempt link TBK DLLs. linkTBKFunctions CAN the event cannot :, so test romDrive","",256) findRomDrive() strBadSetup("Cannot determine CD-ROM extension","ncd",4) szDLL,szPath gwTries Zlogical bSysSuspend A = "tb30dos.dll" V = 1 linkDLL copyFile( removeFile( createDirectory( getFileAttributes( \getFileSize( getFileDate( setFileAttributes( getCurrentDrive() getCurrentDirectory( getDriveList() getFileList( getFileOnlyList( getDirectoryOnlyList( setCurrentDirectory( getCDDriveList() setCurrentDrive( fileExists( = sysToolBookDirectory & = 4) TB30DOS. missing working directory" && \ xfound on your path.") o= default = "tb30win. popMenu( TB30WIN. = "tb30dlg. openFileDlg( openDlg( saveAsDlg( chooseDirectoryDlg( TB30DLG. playMedia szMediaSource,bInPlace,dwMediaLength,stMediaSize,bIsControls ,szGalleryFile {objTarget szExec,szFileName,szMediaType 8bkMediaViewer -- *** mediaViewer() a handler MEDIA.VWR which returns ' ' *** -- statusMsg xpresent xproperly initialized." xisType(" ) -- *** Not CDAudio *** -- = gallery -- *** frame display *** -- playGallery xisFile( " && & ". Please acertain" && \ " && ] && "disc drive." = mediaType( = "Unsupported "Unknown unsupported configFile()," Viewers", ",256) <> " " && " && -- *** uses whether *** -- -- *** needs poll device element length *** -- continueMsg() playMCI "Opening" && & "..." "Click d..." fPlacement ..." ) -- *** " && & ". " && ] && " -- *** p*** -- pgNotify uspendPageMedia ,bSysMediaSuspend ><> "NavBar" -- -- Y = sysMediaSuspend -- -- -- -- mmIsOpen clip " mmClose wait -- -- ` = -- > = -- " && & ". " && ] && " -- ..." currentPage mmBackGroundPalette mmSource mmTimeFormat = frames mmEndPoint = mmSourceLength mmOpen initGalleryViewer -- -- closeGallery x(bSuspendPageMedia = (enterPageMedia ) > 0 (leavePageMedia ) > 0 timerStart("single",500,50, timerNotify wTimerID ,bPlayPageMedia,bInterrupted 4stack stPageMediaPlayed MediaObjects stMediaObjects = buttonClick N"Movie" (objAfterImages (objBeforeImages MCINotify szStatus,szOperation,szDevice szIdleCmds[] szTemp = = "aborted" E = " dimensions( D) > 0 goToPage" reset } <> fileExtension( = "WAV" "WaveAudio" = "MID" "Sequencer" "BMP,DIB,GIF,PCX,TIF,WMF" "Bitmap" "AVI,MOV,FLI,FLC,MMM" "TXT,DOC" "Text" = "RTF" "Rich openIndex szDir, ghwnd First szDDEName bFirst = FindWindowByCaption(0, () & () & Yield() dn(0, " && ] && " = "\" discIssueID(), = baseName( r<> "OK" DDE Link " && ] && " keepRemote ShowWindow( BringWindowToTop( openForm szBookRef defaultPage "FormViewer" %modal ,wMsg,wParam = 0xF060 szRetVal = preference("quitPrompt"," 0 = " "Do you really want f"Yes" cleanUp -- simple trap , mag app-specific sysBook didn't isStartup c(startupBookName())) openStartup ) + 1] = " logError szError, szLogFile,szSysError,szLogString nErrorNumber = sysErrorNumber fileOnly( () & ".err" ~(".", seekFile logged on" && p&& " )" && " && \ :" && =" && r=" && sysInfo() & openMagazine DEVELOP ,szFilters, 7#] && \ "(*." & #] & "),*." & #] & \ Books (*.?bk),*.?bk,All Files (*.*),*.*" #] && \ "(*." & #] & "),*." & #] & \ - ) > 3 = = "\" ","", j = versionID xisAppBook( strDiscError() " && & ". It may be incompatible corrupted strWrongVersion( -- *** May be opening magazine tools e*** -- <> "\" szFileSpec nFoundIt gwMode * = "\" G = SetErrorMode(0x8000 bitOr 0x0001) = SEM_NOOPENFILEERRORBOX; 0 & = SEM_NOCRITICALERRORBOX -- *** !) appears error mode *** -- -) 0x4000 = OF_EXIST = 1) appName discName discIniString("DISC INFO","DiscName","",128) shortName bookInfo wBookIndex,wInfoItem szBookInfo[][] bookInfoByBookID szBookName, gwBookID runtimePath RuntimePath","",256) discVersionID ","",16) discConfigFile indexApp indexCaption setRomDrive szRomDrive ) > 3 = "\" !"Select ^ <> o <> "\" *] = setStartupDirectory *",".") <> "\" I+] = /*r", 'success +] = +] = <> -3 t = TRUE section, entry, %, bufSize szDiscIni gwBufSize ,] & S = 256 discIssueName issueName","",64) issueID","",16) szPref,szDefault .],"Prefs", 9,256) ="replace *OnRomDrive bOnRomDrive = ( ","",256) (( z/]) szInstalled, %"0.0" %"0.0" " && 0] && " !" & 1" && x && " installed are attempting a" && \ 1" && 1 && " k& "You wish upgrade" && \ T.latest " && 0] & "." wrongDiscVersion szDialog %"0.0" %"0.0" " && 1] && " !" & " && && " a" && \ " && F3 && " "Do now?" !2] & "setup.exe") g( = " " && L2] & " ( && \ "-F" & i2] & " .ins" & "Upgrade program asure " && \ 3] && " 2,CD- 0 str correct problem." -- *** For NautilusCD, NCD.SBK ca helpAbout ')shows *** -- -- *** a contained H bitmap *** -- UszCompany szHelpAbout,szYear %"y" i4] && " 5" && i4] & "Copyright(c)" && f & "," "Portions & ", Metatec Corp." && " rights reserved." & selectDir 0",".") -- *** 3.2+ Stuff *** -- 1 = "fts30mtb. 5] & 1 = 1 -- ftsSearch( -- -- -- _2 = 2 x2 = $0y & -- 2 = 3 -- 2 = 4 () & -- 2 = 5) 2 = 5 fullTextSearch szIndexName -- -- ftsIndexName a userProperty placed -- -- 4Tools builds must 4 <> NULL 4 <> "\" -- -- pgRef = F4 & -- -- have had x1 removed -- -- insert -- -- isObject( a valid -- -- otherwise... 5navigate " && -- ncdVGA 6 1u7[V <@hw= D=PSE WM_SIZE false BinitSysArray WM_SYSCOMMAND initMPT wDiscConfigFile myPath linkTBKFunctions false szSysInfo Cannot determine CD-ROM Drive. wStartupDir wExtension wAppName wIndexCaption wVersionID wRomDrive wIndexApp iniString romDrive findRomDrive wShortName extension wConfigFile strBadSetup STARTUP ,writeIniItem startupDir initSysArray strBadSetup tb30dos.dll tb30win.dll TB30DLG.DLL is missing from the working directory false szSysInfo tb30dlg.dll wStartupDir copyFile , TpDir-" removeFile createDirectory , TszSy-" getFileAttributes STAg getFileSize getFileDate , URTUPg setFileAttributes getCurrentDrive UinkTg getCurrentDirectory getDriveList getFileList getFileOnlyList falg getDirectoryOnlyList , Usiong setCurrentDirectory getCDDriveList setCurrentDrive , TDriv-" fileExists +!popMenu openFileDlg openDlg , U<" saveAsDlg chooseDirectoryDlg TB30WIN.DLL is missing from the working directory default or was not found on your path. TB30DOS.DLL is missing from the working directory linkTBKFunctions .&+ +E + , #? the right Opening !=gallery Unknown or unsupported media. configFile Media Viewers szSysInfo mediaType wRomDrive mediaViewer statusMsg Unsupported media isFile Cannot find disc is in the drive. playGallery mediaType Media Viewer (file MEDIA.VWR) not present or not properly initialized. wAppName continueMsg playMedia iniString objTarget E + , #> + , #? + , #? cFindWindowByCaption strBadSetup Cannot run startupDir discIssueID szSysInfo PbaseName isFile wAppName wIndexCaption wIndexApp Yield Cannot open DDE Link to BringWindowToTop Index. ShowWindow openIndex szSysInfo wRomDrive FormViewer openForm shutDown WWM_SYSCOMMAND WM_SYSCOMMAND Do you really want to exit? preference 06cleanUp quitPrompt shutDown cleanUp w, "@ startupBookName isStartup .&+ +E strBadSetup startupBookName szIdleCmds Cannot find Startup book. send sizeToPage default openStartup -", #? w, #> sysError = startupDir Error logged on sysErrorNumber = isFile EofileOnly SsysInfo Error: in file logError + , #> + , #> + , #> + , #> .&+ +E ,All Files (*.*),*.* strWrongVersion . It may be an incompatible or corrupted file. szSysInfo wStartupDir wExtension W7strDiscError openFileDlg wVersionID default isAppBook DEVELOP wShortName qtromDrive ,ToolBook Books (*.?bk),*.?bk,All Files (*.*),*.* Cannot open versionID Open Magazine openMagazine myPath fileExists false isFile szSysInfo wAppName appName DiscName =PdiscIniString DISC INFO discName szSysInfo wShortName shortName szSysInfo wVersionID versionID szBookInfo bookInfo + , "@ szBookInfo wBookID bookInfoByBookID RuntimePath =PdiscIniString DISC INFO runtimePath version =PdiscIniString DISC INFO discVersionID szSysInfo wConfigFile configFile wDiscConfigFile szSysInfo discConfigFile szSysInfo wIndexApp indexApp szSysInfo wIndexCaption indexCaption szSysInfo wRomDrive romDrive szSysInfo qtromDrive .chooseDirectoryDlg wRomDrive romDrive Select ROM Drive configFile STARTUP ,writeIniItem setRomDrive wStartupDir szSysInfo .chooseDirectoryDlg Select Startup Directory wConfigFile STARTUP ,writeIniItem startupDir setStartupDirectory szSysInfo wStartupDir startupDir + , / myPath setCurrentDirectory szSysInfo wStartupDir setCurrentDrive setStartupDirectory szSysInfo wExtension extension + , > + , #> wDiscConfigFile szSysInfo isFile wRomDrive iniString discIniString issueName =PdiscIniString DISC INFO discIssueName issueID =PdiscIniString DISC INFO discIssueID szSysInfo iniString Prefs wConfigFile preference Wrong or missing disc! Please replace and try again. strDiscError + , "Q + , "Q + , "@ + , "@ szSysInfo wAppName wRomDrive appName wShortName =PdiscIniString DISC INFO isAppBook + , #? + , #? Wrong szSysInfo version! to the latest version of wAppName wVersionID is installed and you are attempting to open a You may wish to upgrade file. Version strWrongVersion + , #? Wrong szSysInfo version! wAppName Do you wish to perform an upgrade now? disc is in the drive. wVersionID is installed and a X6upgrade Version wrongDiscVersion + , #> + , #> + , #? szSysInfo szExec wRomDrive wAppName szSysInfo upgrade.ins isFile wRomDrive Yield wAppName Upgrade program not found. Please make sure the latest disc is in your CD-ROM drive. setup.exe upgrade Please run Setup to correct this problem. strBadSetup + , #? w, #> Copyright(c) szSysInfo Portions Copyright(c) , Metatec Corp. wAppName wVersionID Metatec Corp. SsysInfo All rights reserved. Version helpAbout .chooseDirectoryDlg Select Directory selectDir "WAV"